home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbaccbmp / pictest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  2.0 KB  |  66 lines
  1. VERSION 2.00
  2. Begin Form picTest 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Pic Test"
  5.    ClientHeight    =   6435
  6.    ClientLeft      =   495
  7.    ClientTop       =   780
  8.    ClientWidth     =   8625
  9.    Height          =   6840
  10.    Icon            =   PICTEST.FRX:0000
  11.    Left            =   435
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   6435
  14.    ScaleWidth      =   8625
  15.    Top             =   435
  16.    Width           =   8745
  17.    WindowState     =   2  'Maximized
  18.    Begin Frame Frame1 
  19.       BackColor       =   &H00C0C0C0&
  20.       Height          =   855
  21.       Left            =   360
  22.       TabIndex        =   0
  23.       Top             =   5640
  24.       Width           =   4935
  25.       Begin Data picData 
  26.          Caption         =   "Picture Scroller"
  27.          Connect         =   ""
  28.          DatabaseName    =   "PICTEST.MDB"
  29.          Exclusive       =   0   'False
  30.          Height          =   270
  31.          Left            =   240
  32.          Options         =   0
  33.          ReadOnly        =   0   'False
  34.          RecordSource    =   "picture"
  35.          Top             =   360
  36.          Width           =   2655
  37.       End
  38.       Begin CommandButton Command1 
  39.          Caption         =   "Exit"
  40.          Height          =   495
  41.          Left            =   3360
  42.          TabIndex        =   1
  43.          Top             =   240
  44.          Width           =   1215
  45.       End
  46.    End
  47.    Begin Image picImage 
  48.       Height          =   3615
  49.       Left            =   480
  50.       Top             =   480
  51.       Width           =   3735
  52.    End
  53. Sub Command1_Click ()
  54.     End
  55. End Sub
  56. Sub picData_Reposition ()
  57.     Screen.MousePointer = 11
  58.     ' Make sure this is the current record:
  59.     If Not (picData.Recordset.EOF And picData.Recordset.BOF) Then
  60.         ' Change picture to the name of the OLE field
  61.         ' for the record set you are using:
  62.         DisplayOleBitmap picImage, picData.Recordset("Picture")
  63.     End If
  64.     Screen.MousePointer = 0
  65. End Sub
  66.